Oa cee cl cel ce cel oe el el ce ce cl el el el oe ee ee od 
Ce eel ee oe el el el ce cee cee oe ll el el el el ol oe el 
Cl cel cel el eel ce el cee el oe el ce eo el ol el el eh ee ad 


oe eee 
ee ee eee oe ee 
ee — 
. oak cae ane 
coe ee 


Ce ee 
CE ee 
Ce eel ek el el el el el ee el el el el ek el od 


re re 
ce [oe el 
ne -—— 

te ee 

Ae 

te ke be 

ak BA kk ee 

Ate te fobs 

a oe ta he ke 

kh te bk te 

ka te he ke 

oe ke be Ek 

a te 

Ae be be te 

A A 


a ke ke te be be te te be te be te te te ae ee ke ke ka a 
ha. Oe be be. Oe be be. be Oe be be be be be. be. te. te. be te te 
hee Oe Oe be be be be be be be be be be be be be te te te te te 


**F ]LE**1D**QUOTAUTIL 


Q00000 UU UU 000000 TITTTTITTT AAAAAA UU UU TTTTTTITTT IIIIII LL 
QaQQaQQ UU UU 000000 TTTTTTTTTT AAAAAA UU UU TTTTTTTTTT II1111 LL 
QQ QQ WU UU 00 00 TT A AA UU UU TT II LL 
QQ QQ UU UU 00 00 TT oA AA UU UU TT I] LL 
QQ QQ UU uu 00 00 TT Aa AA UU UU TT I] LL 
QQ QQ UU UU 00 00 TT Pes AA UU UU TT II LL 
QQ QQ UU UU 00 00 TT Aa AA UU UU TT I! LL 
Q QQ UU UU 00 00 TT Aa AA UU UU TT I] LL 
QQ QQ QQ Uw uu 00 00 TT AAAAAAAAAA §=UU UU TT I] LL 
Qa a0 QQ ww UU 00 00 TT AAAAAAAAAA UU UU TT I] LL 
QQ UU UU 00 00 TT AB AA UU UU TT I] LL 
QQ QQ UU UU 00 00 TT ‘lal AA UU UU TT II LL 
QQQQ QQ VYUUUUUUUUU 000000 TT AA AA UUUUUUUUUU TT IIIII1 LLLLLLLLLL 
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MODULE QUOTAUTIL 


BEGIN 


! 
MASSES LSLICL SLES SETS TTT TTT TTT TCE Tee Tete cece c tice icc irra ic citi ci iiii iit 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 . 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
ie ALL RIGHTS RESERVED. . 
. ® 
ie THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED . 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Sor TWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. * 
te 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL . 
we 
| poesendansbdecenuanneusdsbanadeneanssebennncebebeetedseuenedeionenenebeunees 
'e4¢ 
i FACILITY: F11ACP Structure Level 2 
i ABSTRACT: 


This module contains routines that inplement the ACP control 
functions that operate on the quota file. 


| ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


i AUTHOR: Andrew C. Goldstein, CREATION DATE: 31-May-1979 15:18 
i MODIFIED BY: 


V04-001 ACG0466 Andrew C. Goldstein, ie 1984 14:38 
Flush quota file” blocks from cache when disab ing quotas 
v03-012 CDS0008 Christian D. Saether 29-Aug-1984 


Deal the potential multi-header quota file caused 
by ACL's 
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3 8 058 1! 

3 9 8038 1! v03-011 CDS0007 Christian D. Saether 23-Aug-1984 

3 oy Baey : Mark quota fcb stale clusterwide when it is extended. 

; 6 006¢ 1 i v03-010 ACG0438 Andrew C. Goldstein, 18-Jul-1984 20:32 
; ¢ 065 1! Implement quota cache lock; dequeue when cache is released. 
3 ee Spee } } Use central dequeue routine. 

: 6 0066 1 ¥03-009 CDS0006 Christian D. Saether 9-May-1984 

; a4 does : } Add serialization call to flush_quo_cache routine. 

: 69 0069 1 / v03-008 cDs0005 _ Christian D. Saether 19-Apr-1984 

3 ty TA : } Bump REFCNT in quota file fcb also. 

eS 0078 1! v03-007 ACG0412 Andrew C. Goldstein, | 22-Mar-1984 18:35 
Seat 0075 1! Implement agent access mode support; add access mode to 

3 a oore : protection check call 

: 76 0076 1! V03-006 ACG0400 Andrew C. Goldstein, | 7-Mar-1984 17:07 
3 77 0077 1! Implement cluster-wide quota cache, remove marking 

; Le ith : of SCB for quotas. 

: 80 080 1 | V03-005 CDS0004 Christian D. Saether 1-Mar-1984 

3 + aed ! Remove reference to FLUSH_FID. 

; 83 0083 1 | V03-004 ¢DS0003 Christian D. Saether 30-Dec-1983 

3 Se bog : } Use L_NORM Linkage and BIND_COMMON macro. 

: 86 0086 1 | v03-003 cps0002 Christian D. Saether 6-Dec-1983 

; Br 0087 1! Volume lock check on quota file modification request 

3 HY it's } } has changed. NOALLOC is no Longer set. 

: 90 0090 1 | v03-002 ¢DS0001 Christian D. Saether 17-Oct-1983 

; 4 B39) : Add minimal quota checking support for xqp. 

: 93 0093 1 | v03-001 ACG0308 Andrew C. Goldstein, 14-Jan-1983 14:26 
3 oe Bo3¢ ! Fix consistency problems in Linking FCB's 

: 96 0096 1: v02-005 ACG0213 Andrew C. Goldstein, | 13-Aug-1981 13:42 
; 4 sia : } Remove write lock from quota file 

: 99 0099 1 v02-004 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:27 
; 100 0100 1! Previous revision history moved to F11B.REV 

s 101 0101 1 !e* 

3 3 0106 1 

s te 0103 1 

; 104 0104 1 LIBRARY ‘'SYSS$LIBRARY:LIB.L32'; 

; 105 0105 1 REQUIRE ‘SRC$:FCPDEF.B832'; 

: 106 1098 1 

3; 107 1097 1 

; 108 1098 1 FORWARD ROUTINE 

3; 109 1099 1 QUOTA_FILE_OP _: L_NORM NOVALUE, ! pynerel quote file operations 
: 110 1100 1 FLUSH_QUO_ CACHE : L_NORM NOVALUE, ! flush dirty entries from quota cache 
: 111 1101 1 DEACC QF ICE : LINORM, ! deaccess the quota file 

: We 11 ¢ 1 RET_QENTRY : L-NORM, ! return quota file entry to user 
Te i 11 1 CONR_OF ILE : LINORM NOVALUE, ! connect the quota file 

3; 116 1104 1 MAKE _QFCB : LUNORM; : complete quota file access 


oa 


1 
1-50 -1984 00:51:0 
12-8 08- 138. 90:30i0 
GLOBAL ROUTINE QUOTA_FILE_OP (ABD, FIB) : L_NORM NOVALUE = 


'e4 
1 


i FUNCTIONAL DESCRIPTION: 


This routine implements most of the quota file ACP control functions 
(i.e., the ones that are performed on the open quota file). 


CALLING SEQUENCE: 
QUOTA_FILE_OP (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of buffer descriptor packet 
ARG2: address of user FIB 


IMPLICIT INPUTS: 
CLEANUP_FLAGS: cleanup action and status flags 
CURRENT _VCB: VCB of current volume 
10_PACKET: I/0 packet being processed 
QUOTA_RECORD: record number of found quota file record 
FREE_GUOTA: record number of first free quota file record 


OUTPUT PARAMETERS: 
NONE 


ena 


MProPornon 
—- 


WN OOO? NEW O00 


oO 
vw 


IMPLICIT OUTPUTS: 
PRIMARY_FCB: FCB of quota file 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
quota file searched, modified, etc. 
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BEGIN 
MAP 
ABD : REF BBLOCKVECTOR C,ABDSC_LENGTH], 
' buffer descriptor vector 
FIB : REF BBLOCK; ' user FI 
LITERAL 
RECS_PER_BLOCK = 512 / DQFSC_LENGTH, 
MAX_QFUNC = MAXU (FIBSC_DSA_QUOTA, 
FIBSC_EXA_QUOTA, 
FIBSC_REM_QUOTA, 
FIBSC_MOD_QUOTA, 
f EBSE ASO SUOTA 
MIN_QFUNC = MINU (FIBSC_DSA_QUOTA, 
1 FIBSC_EXA_QUOTA, 
2 FIBSC_REM_QUOTA, 
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173 FIBSC_MOD_QUOTA, 
ec tte adie 


LOCAL 


TEMP1, ! random temp storage 

TEMP2, ! more of the same 

FCB : REF BBLOCK, ! address of quota file FCB 

BUFFER : REF BBLOCK, ' disk block buffer 

Q_RECORD REF BBLOCK, ! record found in quota file 

Q_BLOCK REF BBLOCK; ! quota arg block from user 
BIND_ COMMON; 


EXTERNAL ROUTINE 
mane af C8 STALE =: L_NORM NOVALUE 


OWONAVEWN "OOONOUS 


! mark fcb stale clusterwide 
: serialize on given file 

' serialize on volume allocation 
! switch volume context 

! find entry in quota file 

' check file protection 

! take lock on quota cache entry 
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REL QUOTA LOCK : L_NORM, ! release Lock on quota cache entry 
WRITE DIRTY : LINORM NOVALUE, ! write dirty buffers 

READ BLOCK : LINORM, ' read a disk block 

EXTEND CONTIG : L_NORM, ! extend a contiguous file 
WRITE_GUOTA : LINORM; ! write quota file record 


Do the preliminary setup and validation. ALL operations handled by this 
—— aporewe on RVN 1 of a volume set and require the quota file to 
e connected. 
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SWITCH VOLUME (1); 
PRIRART_FCB = FCB = .CURRENT_VCBCVCB$L_QUOTAF (CBI; 
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09 IF .FCB EQL 
$19 THEN ERR_EXIT (SS$_QFNOTACT); 
312 SERIAL_FILE (FCB CFCBSW_FID)); 
at ALLOCATION_LOCK (); 
$1$ ! Do additional validation which is common for several functions. ALL but 
1 0 ! the disable function require a quota file search and require the quota 
18 $ argument block (P2) to be present. 
20 0 
21 1 IF .FIBCFIBSW_CNTRLFUNC) NEQ FIBSC_DSA_QUOTA 
$$ 1 THEN 
§ 1 BEGIN 
4 1 IF Se? wii ABD$W_COUNT] LSSU DQFSC_LENGTH 
$2 1 THEN ERR_EXIT (SS INSFARG); 
26 Q BLOCK = ABDCABDSC_NAME, ABDSW_TEXT] + .ABDLABDSC_NAME, ABDSW_TEXT] + 1; 
28 $1 Q_ RECORD = SEARCH_QUOTA (.Q_ BLOCKCDQFSL_UIC], .FIBCFIBSL_CNTRLVAL], .FIBCFIBSL_WCC), 0); 
229 21 IF .FIBCFIBSV_ALL_MEM) 
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! ALL fun 
! quota file; examine requires read access except when examining one's 
own quota. 


1 -QUOTA_RECORD; 


ions except disable and examine require write access to the 


Mlwr 


IF .FIBCFIBSW_CNTRLFUNC] NEQ FIBSC_EXA_QUOTA 
gg MECK-PROTECT (WRITELACCESS, 0, .FCB, 0) 


OR .FIBCFIBSV"A 


OR .Q BLOCKLDOF SL Ic 
LOCK O PACKETCIRPSL Ane}. ARBSL -¥iC] 
THEN CHECK K OROTECT (READ_ACCESS, 0, .FCB, 


IF .FIBCFIB$V at LGR] 
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! ALL functions except disable and add require the quota file search to be 
successful. 


fen -FIBCFIBSW CNTRLFUNC] NEQ FIBSC_ADD_QUOTA 


IF .Q_ RECORD EQL 0 
3 THEN ERR_EXIT (sss. _NODISKQUOTA) ; 
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Dispatch on the function and do it. 
CARE 8 TOC? IOTN UTR FLE FROM MIN_QFUNC TO MAX_QFUNC OF 


Or tese PsA. QUOTA): ! disable disk quotas 


IF NOT .CLEANI'P FLAGSECLE SYSPRV] 
THEN ERR EXIT (SS$_N PRIVS; 
FLUSH_QU0_CACHE ()7 
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7 WRITE-DIRTY (-1) 

7 KERNEC_CALL (DEAEC _OFILE); 

fs - 

Le CF IBSC GxA_ QUOTA): ! examine quota file entry 
AA KERNEL. CALL (RET_QENTRY, .Q_RECORD, .ABD); 

79 


CF 1B8C REA. QUOTA): ! remove quota file entry 


LF .Q_RECORD(DOF$L_USAGE) NEQ 0 

THEN ERR STATUS (SS$_OVRDSKQUOTA); 

KERNEL CALL (RET GENTRY ~Q RECORD, .ABD) 
GET QUOTA _LOCK (70 A {nbes. CCK SK_EXMODE) ; 
CESFICL tot DOF SC OUENGTH .QRECORDY; 
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WRITE QuoTA (0 RECORD) 
REL. QUOTA_LOCK T.QUOTA_ INDEX); 


CF IBSC poe QUOTAl: ! modify quota file entry 
IF_ .FIBCFIBSV_MOD_USEJ 
THEN 


BEGIN 
IF .BLOCK_LOCKID Eat 0 
THEN ERR_EXIT (SSS$_A COMFLICT) 
Q RECORDEDOF$L_USAGE G_ BLOCKCDOFSL _USAGE); 


i D; 
.F IBLF 18$V_MOD_PERM] 


Q_RECORD(DOFSL Ppanueral » -Q_BLOCKCDQF$L_PERMQUOTA]; 
eit Te F IBSV_MOD_OVE 

Q_RECORDCDOF SL =OYERDRAFT) = .Q_BLOCK(DQFS$L_OVERDRAFT); 
IF .Q-RECORDCDOFSL-USAGE) G aaa DOF SL- “PERMQUOTA). 
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TEN FRR STA.(Us SSS OuRDSEa QuoTAd 
WRITE QUOT’ (.Q RECORD); 
KERNEL. CALL (RET ROENTRY. -Q_RECORD, .ABD); 
1 CFIBSC ADD_ QUOTA): ! add quota file entry 
: NEG 0 
304 THEN ERR_EXIT (SS$_DUPDSKQUOTA); 
; 5 IF .FREE_QUOTA EQL~0 
309 BEGIN 
308 F .FCBCFCBSL_FILESIZE] GEQU (1°24)/RECS_PER_BLOCK-1 
393 THEN ERR_EXIT (S$$_DEVICEFULL); 
10 TEMP1 = “FIBEEIBSU_CNTRLFUNG 3 
31} TEMP2 = .FIBCFIBSL-CNTRLVALJ; 
le Q RECORD = EXTEND CONTIG (.FIB, .FCB, 1); 
31 MAKE FCB STALE (FCB): 
314 FIB FIBSO_CNTRLFUNG = ,TEMP1; 
312 FIBCFIBSL-CNTRLVAL) = .TEMP2; 
16 FIBCFIBSL_EXVBN) = 0; 
1 END 
18 ELSE 
1 BEGIN 
20 Q_RECORD = READ_BLOCK ((.FREE_QUOTA-1)/RECS_PER_BLOCK + .FCBCFCBSL_STLBNI, 


i, Q YPE) 
Q RECORD = .Q_RECORD + ((-FREE_QUOTA-1) MOD RECS_PER_BLOCK) * DQFSC_LENGTH; 


_s 
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: 

4 

5 CHSFILL (0, DOFSC LENGTH, ._RECORD) ; 

2 Q_RECORD Dar sv AC TIVE EJ = 1; 
38 Q"-RECORDEDQFS$L“UIC) = .0 -BLOCKCDOF SL UIC); 
39 8 Q- RECORD DOFSL-USAGE) = =a. B OCKCDOF SL USAGE) 
0 9 Q7RECORD(DOF$L~PERMQUGTA 2° 2 KrDOrse “PEANQUOTAI: 
1 0 Q-RECORDCDOFS$L-OVERDRAFT) = .Q “BLOCK DOF $L-OVERDRAF T 
4¢ 3 WRITE_QUOTA (.0_RECORD); 
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! should not be called with other functions 


1 BLi 
«SR 


ss- 2 P 
SRC JQU0 $ em 


CINRANGE, OUTRANGE): 0; 
TES; 


END; ! end of routine QUOTA_FILE_OP 
.TITLE QUOTAUTIL 
-IDENT \V04-001\ 
-EXTRN MAKE_FCB STALE, SERIAL_FILE 
-EXTRN ALLOCATION LOCK 
~EXTRN SWITCH _VOLOME, SEARCH _QUOTA 
-EXTRN CHECK_PROTECT, GET QUOTA_LOCK 
EXTRN REL_QOOTA_LOCK, WRITE DIRTY 
-EXTRN REAB_BLOCR, EXTEND_CONTIG 
-EXTRN WRITE_QUOTA 
-PSECT $CODE$,NOWRT,2 
03FC 00000 -ENTRY QUOTA_FILE_OP, Save R2,R3,R4,R5,R6,R7,RB8,R9 ; 
59 00006 CF 9€ 0000 MOVAB WRITE-QUOTA, R9 : 
01 DD 0000 PUSHL #1 : 
00006 CF 01 FB 00009 CALLS #1, SWITCH_VOLUME : 
50 98 AA DO 0000 MOVL #§ -104(BASE)> RO F 
58 54 ad 00 0001 MOVL  84(R0), FCB : 
08 AA 58 DO 00016 MOVL FCB, 8(BASE) : 
05 12 OOO1A BNEQ : 
0304 8F BF 0001C CHMU =: #980 : 
04 00020 RET : 
ch OOF 999 1 1$: PUSHAB 36(FCB) : 
00006 CF 01 FB 00024 CALLS #1, SERIAL_FILE : 
0000G CF 00 FB 00029 CALLS #0, ALLOCATION_LOCK : 
50 08 AC 00 00u E MOVL FIB, : 
OA 16 Ag B1 0003 CMPW © 22(RO), #10 : 
03 12 000 BNEQ 2$ : 
O008F 31 00038 BRW 10$ : 
50 04 AC DO 00038 2s: MOVL ABD, RO : 
20 12, A 81 003F CMPW 3=s«18(RO), #32 ; 
05 1€ 9043 BGEQU 3$ : 
0114 «BF BF 004 CHMU #276 : 
51 06 AC 6 O00¢R 35 ROVE D, RI : 
50 10 Al i Bod MOVZWL ratee RO : 
57 11. A140 9E 0005 OVAB 17(R1)EROJ, Q_BLOCK ; 
7E D4 005 CLRL =(SP) : 
50 08 AC 00 00059 VL FIB, RO : 
19 AO DD 0005p PUSHL  16(RO) ; 
1 AO DD 969 PUSHL  24(RO) : 
04 A? DD 0006 PUSHL 4(Q BLOCK) ; 
00006 CF 4 FB 00066 CALLS #4,” SEARCH QUOTA : 
26 0 dO 00068 MOVL RO, Q RECORD : 
Q 08 AC D 99 MOVL 16, RO : 
0 18 AO £8 090 BLBS 24 (RQ) 4$ ; 
18 Ad 01 €1 0007 BBC #1, 24(RO0), 5$ : 
10 a0 0284 CA DO 0007B 4$: MOVL  692(BASE), 16(RO) ; 
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(BASE), RO 


#4, CHECK_PROTECT 
FI8 


RO 
22(R0), #11 


FLUSH_QUO_CACHE 
-(SP) 


WRITE_DIRTY 
DEACC OF ILE 


_RECORD) 


8(BASE), 15$ 
41, -128(BASE) 
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CORD 
#2, RET_QENTRY 


704 (BASE) 
#2, GET_QUOTA_LOCK 
#0; (SPT, #0, 7832, 


Q RECORD 
#1, WRITE_QUOTA 
704 (BASE) 

#1, REL_QUOTA_LOCK 
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) 4 04 9 
-Sep-1984 9 241 F11X.SRCJQUOTAUTIL.B32;2 (2) 
10 18 Ad 02 £1 00131 168 BBC " 4(RO), 18$ : 1282 
FF7C OCA D3 1 TSTL -132(BASE) : 128 
5 13a BNEG ~=s«*17$ : 
0800 8F BF 1 CHAU #2048 + 1286 
08 A 08 A? 09 141 17$ MOVL 8(Q_BLOCK), 8(Q_RECORD) + 1287 
5 AC D 146 18$ MOVL FIB, R : 1289 
05 18 AO 03 £1 OO14A BBC #3, 24(RO), 19$ : 
oc A Oc A o9 14F MOVL  12(@ BLOCKS, 12(@_RECORD) + 1291 
5 08 AC 00 00154 19S:  MOVL  FIB,~RO + 1292 
05 18 AO 04 €1 00158 BBC #4,°24(RO), 208 : 
10 A6 10 A7 DO 1 MOVL  16(Q BLOCKS, 19(@_RECORD) : 1294 
OC Ab 08 A6 D1 00162 208: CMPL 8(Q_RECORD), 12(Q"RECORD) + 1295 
OA 18 O16 BLEQU 21$ : 
06 80 AA £9 00169 BLBC = 128 (BASE) 21$ : 1296 
80 AA 066 ef 80 0016 MOVW #1641, -128(BASE) : 
6 DD 00173 21%: PUSH. 2@ RECO : 1297 
69 01 FB 0017 CALLS #71, WRITE_QUOTA : 
04 AC DD 00178 22$:  PUSHL ABD : 1298 
56 DD 00178 PUSHL Q RECORD : 
0000v CF 02 FB 9170 CALLS #2, RET_QENTRY ; 
04 18¢ RET : 1352 
56 0 gi8 238: TSTL G@ RECORD 3 1 
05 13 00185 BEQL 20$ : 
O3DC—s BF BF 00187 CHMU #988 + 1304 
4 00188 RET : 
50 0288 CA 09 0018¢ 24$:  MOVL  696(BASE), RO > 1305 
49 12 00191 BNEQ 6 : 
OOOFFFFF 8F 38 «=6AB «ODT 00193 CMPL 6(FCB), #1048575 > 1308 
05 1F 00198 BLSSU _25$ : 
0850 8F BF 0019D CHMU =s-_- #2128 : 1309 
04 Beta RET : 
50 08 Ac b0 O1A2 25$:  MOVL  FIB, RO : 1310 
5 16 AO 3C 0016 MOV ZUL g2(RO), TEMP1 : 
52 18 AO DO OO1AA VL 4(RO), TEMP2 : 1311 
01 oD OIAE PUSHL #1 : 1312 
0101 8F 8B 001B PUSHR  #*M<RO,RB> : 
00006 CF 03 F O18, CALLS #3, EXTEND CONTIG ; 
56 50 00 00189 MOVL RO, G_RECORD F 
58 DD 0018C PUSHL : 1313 
00006 CF 01 FB 001BE CALLS #1, MAKE_FCB_STALE ; 
50 08 AC DO 001C MOVL FI > 1314 
16 AO 53 BO 001C7 MOV -TEMP1, 22(RO) : 
30 08 AC D O1c8 MOVL FIB + 1315 
18 «OA 52 DO OO1CF MOVL TEMP2, 24(RO) : 
50 08 AC DO 00103 MOVL IB, RO : 1316 
1¢ AO D4 00107 CLRL : (RO) : 
: 11 OO1DA BRB $ > 1305 
DD 001DC 26$: PUSHL #5 : 1320 
1 DD 001D PUSHL #1 : 
0 OD BIE CL RO : 
50 10 C6 OO1E DIVL2 #6 RO : 
30 8840 SF OOTE PUSHAB @48(FCB)CROJ ; 
00006 ct FB 1€ CALLS , READ BLOCK : 
6 p IEE MOVL * a ret : 
ze FFFFFFFF ef 0288 CA 1 7A OO1F EMUL #1. 696(BASE), #-1, -(SP) > 1322 
5 0 BE 10 78 OO1FC EDIV #16, (SP)+, RO, RO : 
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3 @] 23 } GLOBAL ROUTINE FLUSH_QUO_cACHE : L_NORM NOVALUE = | : 
3 g 1341 1 t+ | ; 
3 4 1 28 7: 2 : 
13 55 ! re : FUNCTIONAL DESCRIPTION: : 
r 3§ 1345 1! This routine flushes dirty entries in the quota cache back to the : 
F 4 : re : quota file. : 
3; 360 1348 1 | ; 
is 36) 1349 1 ! CALLING SEQUENCE: : 
; $¢ 20 FLUSH_QUO_CACHE () | ; 
: 64 133¢ | INPUT PARAMETERS | 3 
2 ; . 
: 366 1328 75 | 3 
|: 36? 1355 1! IMPLICIT INPUTS: | ; 
; 368 b> ie CURRENT_VCB: VCB of volume : 
: 44 ieee ; context set to RVN 1 : 
; 4 1359 1 OUTPUT, PARAMETERS: | ; 
; 7 1361 1 : 
: 375 1306 : SRPLICIY QUTPUTS: | : 
: 376 1364 1! | ; 
Lhe in| ou aa: 
: 379 1367 1 | ; 
; 380 1368 1 | SIDE EFFECTS: ies | : 
: $e) 1398 ; quota cache flushed, quota file modified | : 
; 385 1371 1 ie | : 
; «384 1378 1 3 
; 385 1375 2 BEGIN ; 
; 386 1374 2 3 
: 3B TE Reotieend | : 
: 389 1377 2 ’ ; 
; 390 1378 2 LITERAL | 3 
; 91 139 2 RECS_PER_BLOCK = 512 / DQFS$C_LENGTH; | ; 
: 3 1381 2 LOCAL : 
: 394 1386 QUOTA_CACHE : REF BBLOCK, ! address of quota pe : 
: 95 138 QUOTA_LIST : REF BBLOCKVECTOR C,VCASC_QUOLENGTHJ, : 
; 39% 1384 ! address Of cache entries ; 
; 3597 1385 FCB : REF BBLOCK, ' address of quota file FCB : 
; 398 1386 REC_NUM, ' record number to read : 
; 399 Et STATUS ' system service status 3 
; 4900 1388 Q_RECORD REF BBLOCK, ! address of record read ; 
: ret if a LOCK_STATUS VECTOR (2); : LKSB for lock conversion | : 
a 18 § censor wot 
; 405 1393 § CIN . , ; 
; 406 1394 @¢ EXTERNAL ROUTINE : 
: 407 1395 5 ZERO_ON_ERROR, ! return zero on error signal (handler) : 


——— —~— nn 
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3; 608 1 96 ALLOCATION_LOCK : L_NORM NOVALUE , ! serialize on volume ‘ 
; 409 139 READ BLOCK : L_NORM, : read a disk block ‘ 
s 4619 1598 CLEAN _QUO_CACHE : L_NORM, ! flush cache entry to record ° 
; 411 1399 REL_QOOTA_LOCK : L_NORM; ! release lock on cache entry : 
: tig 1400 ‘ 
: 4] 1401 | 3 

3) 416 1208 ! Set up the condition handler to handle I/0 errors. ‘ 

‘3 615 140 : 

416 1404 | | : 

: 417 1405 .FP = ZERO_ON_ERROR; : 
> 418 1406 ‘ 
3; 419 1407 ' Scan the quota cache, wake for valid dirty entries. If one is found, ° 
3 <3 e's read its record from the quota file, update the record, and write it back. | ‘ 
; 6 1410 : 
; 438 1411 2 QUOTA CACHE = .CURRENT VCBCVCBSL_QUOCACHE]; | | : 
3 ose Of IF .QOOTA_CACHE EQL 0 THEN RETURA; ! nop if no quota cache | : 
; 426 1414 ALLOCATION_LOCK (); ‘ 
: 427 1415 : 
: 428 1416 2 FCB = .CURRENT_VCBCVCBSL_QUOTAF CBI; : 
: 44 1417 § QUOTA_LIST = QOOTA_CACHETVCASL_QUOLISTI; : 
: 430 1418 2 INCR J FROM 1 TO .GUOTA_CACHECOCASW_QUOSIZE) | : 
>: 431 1419 ; dO ° 
; 432 1420 BEGIN : 
: 433 1421 3 IF -QUOTALLISTE.J-1, VCA$SV_QUODIRTY] : 
3; 434 lage 3 AND .QUOTA_LISTC.J-1, VCASL-QUORECNUM] NEQ 0 : 
: 435 14 THEN | : 
; 436 142 4 EGIN | : 
3 «437 1425 4 EC_NUM = .QUOTA_LISTC.J-1, VCASL_QUORECNUM) - 1; ‘ 
; 4438 1426 4 Q_RECORD = READ_BLOCK (.REC_NUM /"RECS_PER_BLOCK ‘ 
; 439 1427 4 + .FCBCFCBSL_STCBNJ; 1, QUOTA TYPE) : 
: 440 1428 4 + (.REC_NUM MOD RECS_PER_BLOCK) * DQFS$C_LENGTH; ’ 
: 441 1429 4 IF .Q RECORD GEQA 512 ° 
3 442 1430 4 THEN RERNEL_CALL (CLEAN_QUO_CACHE, .J, .Q_RECORD); : 
: 443 1431 3 END; : 
7 446 1438 3 REL_QUOTA_LOCK (.J); : 
; 445 1433 2 END; ° 
3; 446 1434 2 ; : 
3: 447 1435 2 ! Now mark the quota cache invalid. If we are holding a cache lock, ; 
: 448 1436 § ! demote it down to NL to indicate that we are no longer holding : 
; 449 1437 ! cache contents. ‘ 
; 450 1438 2 | : 
; 451 1439 ° 
s 432 1440 QUOTA _CACHECVCASV_CACHEVALID]) = 0; ° 
: 453 1441 IF .Q0OTA_CACHECVCASL_QUOCLKID] NEQ 0 : 
: 4654 1<e8 THEN . 
; 455 144 BEGIN ’ 
: 456 1444 LOCK _STATUS(C1] = .QUOTA_CACHECVCASL_QUOCLKID); 
: 457 P 1445 STATOS = SENQW (EFN = EFN 
: 458 P 1446 KMODE = LCK$K_NLMODE | 
; 4459 P 1447 FLAGS = LCKSMNOQUEUE OR LCKSM_SYNCSTS OR LCKSM_CVTSYS OR LCKSM_CONVERT, 
: 460 P 1448 LKSB = LOCK_STATUS 
; 461 1449 : 
: 46 1450 IF NOT .STATUS 
; 46 1451 THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error'); 
: 664 1452 2 END; 
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(> 665 1453 
a 466 1454 1 END; ! end of routine FLUSH_QUO_ CACHE 
EXTRN ZERO_ON_ERROR, CLEAN QUO_CACHE 
EXTRN SYSSENQQ, BUG$_XOPERR | 
01FC 00000 LENTRY FLUSH QUO_CACHE, Save R2,R3,R4,R5.R6.R7.R8 : 1339) 
| SE 08 C2 90002 SUBL2 #8, SP ; 
| 6D 00006 CF 3 0000 MOVAB ZERO_ON_ERROR, (FP) + 1405 | 
50 98 AA D 9000A MOVL <-104TBASE), RO + 1411 
| 52 SC AO 00 00g MOVL  92(RO), GUOTA_CACHE : | 
| 7A 13 0001 BEQL 4$ + 1412) 
| 00006 CF 00 FB 00014 CALLS #0, ALLOCATION_LOCK + 1414 
| 50 98 AA DO 00019 MOVL -104(BASE), RO ; 1416) 
56 54 AO 00 0001D MOVL  84(RO), F : | 
53 44 A2 9E 00021 MOVAB 68(R2), QUOTA_LIST 1417) 
58 62 3C 00025 MOVZWL (QUOTA, CACHED; RB + 1418) 
54 D4 00028 CLRL J : | 
57 11 OO02A BRB 3$ : 
50 54 ic C5 900¢¢ 1$: MULL3 #28, J, RO + 1421 
| 50 53 CO 00030 ADDL2 quota: rbists RO F 
44 EF AO 01 £1 00033 BBC 2$ ; 
00 EC AO 18 00 ED 00038 CMPZV 50° ie RO} es, #0 t 1422 
3c 613 O003E BEQL : 
55 EC AO 18 00 EF 00040 EXTZV #0, #24, -20(RO), REC_NUM : 1425) 
55 D7 00046 DECL | REC_NUM : 
05 DD 00048 PUSHL > 1426) 
01 DD 0004A PUSH wi : 
50 55 10 C7 0004¢ DIVL3 #16, REC_NUM, RO : | 
30 B640 9F 00050 PUSHAB SSFCRSEROT > 1427 | 
00006 CF 03 FB 00054 CALLS 43, READ BLOCK : 
7E 0 55 01 7A 00059 EMUL ¢_RUM, ho -(SP) > 1428 | 
51 51 BE 10 7B 0005 EDIV. #1 16," (SP), , RI : 
51 20 £4 0006 ULL? ase 
57 50 51 C1 00066 ADDL “RO. Q_RECORD : 
00000200 &F 57 D1 O006A CMPL a" RECORD, “#512 > 1429 
09 1F 00071 BLSSU 28 : 
0090 8F BB 00073 PUSHR #*M< > 1430 
00006 CF 02 FB 00077 CALLS #2, <tLeaN: QUO_CACHE : 
54 DD O007C 28: PUSHL J : 1432 
00006 CF 01 FB O007E CALLS #1, REL_QUOTA_LOCK : 
AS 54 58 F3 00083 3$: AOBLEG R RB. J, 1$ > 1418 | 
0B A2 01 8A 00087 BICB * 14 (QUOTA_CACHE) + 1440. 
04 A o it TSTL Ath UOTA_CACHE) ; 1441) 
25 13 OOO8E 4$: BEQL 5$ : 
04 AE 04 A2 D0 00090 MOVL § 4(QUOTA_CACHE), LOCK_STATUS+4 : 1444 | 
| 7E 7C 00095 CLRQ = =(SP) > 1449 | 
7E 7C€ 00097 CLRQ  =(SP) : 
| 7E 7C 00099 CLRQ = =(SP) : 
| 7E 04 00098 CLRL = =(SP) : 
7E 4E 8F 9A 0009D MOVZBL #78, -(SP) : | 
20 AE 9F OOOAI PUSHAB LOCK, STATUS : | 
| 000000006 6b se 78 BbOAS Parts ait? s¥eeenau | 
| 04 98 EB OOAE BLBS = STATUS, 5 : 1450 
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GLOBAL ROUTINE DEACC_QFILE 
'+¢ 


' 
FUNCTIONAL DESCRIPTION: 


: LLNORM = 


CALLING SEQUENCE: 
DEACC_QFILE () 


i 
i 
i 
i 
i 
i 
i 
i 
' INPUT PARAMETERS: 

NONE 

' IMPLICIT INPUTS: 

; CURRENT_VCB: VCB of volume 
: context set to RVN 1 

' OUTPUT PARAMETERS: 

NONE 

i 

i 

i 

i 

i 

i 

i 

ie 


IMPLICIT OUTPUTS: 
NONE 
ea VALUE: 


SIDE EFFECTS: 
quota file disconnected from VCB, 


BEGIN 

LOCAL 
ACCTL, : 
LCKMODE, ; 
FCB : REF BBLOCK, ! 
STATUS, : 
QUOTA_CACHE : REF BBLOCK; ! 


BIND_ COMMON; 
EXTERNAL ROUTINE 


KILL_BUFFERS L_NORM, 
CONVIACCLOCK =: L-NORM i 
LOCK” MODE : LJSB {ARG, | 
DEQ COCK : LINORA ' 
DEACLOCATE L 


Flush the quota file data blocks from t 


KILL_BUFFERS (1, =1); 


1 
~90071938¢ 99:30:94 


This routine deaccesses the quota file and releases the FCB if it 
is idle. This routine must be aclled in kernel mode. 


FCB deallocated 


calculate remaining access control 
lock mode to convert access lock to. 
FCB of quota file 

system service status 

address of quota cache block 


flush specified buffers from cache 
convert access loc 


J ' calculate lock mode from access ctl 
. : soqusue a_lock 2 
NORM ADDRESSING_MODE (GENERAL); ! deallocate system dynamic memory 


he block buffer cache. 


eef 
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: | OCrenens access and lock counts on the FCB. 
PRIMARY _FCB = = ,CURRENT_VCBCVCBSL_QUOTAF CB); 
CURRENT ~VEBLVCBSL  QUOTAF te) = Q; 

ACCTL = 0; 


if .F CBCP CBSW WONT] NEQ 0 
THEN ACCTL = FIBSM WRITE; 


FCBCFCBSW_TCNT) = .FCBCFCBSW_TCNT] = 1; 
LCKMODE = 0; 
Con (FCBCFCBSW_ACNT] = .FCBCFCBSW_ACNT] - 1) NEQ 0 
NL CKMODE = LOCK_MODE (.ACCTL); 
FCBCFCBSW_REFCNT] = .FCBCFCBSW_REFCNT] - 1; 
Convert the access lock to reflect the remaining accessors. 


VMFWN—"OOOnNOuU 


CONV_ACCLOCK (.LCKMODE, .FCB); 


! Release the quota cache lock, if there was one. Unlink and deallocate 
i the quota cache block. 


QUOTA _CACHE = .CURRENT_VCBCVCB$L_QUOCACHE); 
Ii -QUOTA_CACHECVCASL_GUOCLKIDJ REQ 0 


Dea. “Lock (.QUOTA_CACHECVCA$L_QUOCLKID]); 


HDAMAAMAMAMN NATE BEER EEE 


EALLOCATE (.QUOTA_CACHE); 
URRENT_VCBLVCBS$L_GUOCACHE) = 


D 
C 
RETURN 1; 
END; ! end of routine DEACC_QFILE 


WN O OONOAVE WN OOOO S WN OOM 


an 


Sak 
“ 
aa a a a a Na a a at as st a a = 2a = 2 a 2a 1 es 2 


Ah AbeAb Ah Ab-db-h-hb-db-h-db-db-hb-hh dh Abubb Ab Ab dh Ab db Ab ebb db edb Ab db db bbb bb dh hb dh hh dh hh dh hh hh hh al 
PU BS BS BS BS BS BE BE AANA AAI AAAI AIPIPPUPPPOPONINIINYD 2 SS SS OS OS OS 
PUN (CO OCONOVESWN (OC ODNOAUE WN (OOO NAUE WN -OOONOU LS wr 


f 
a 
: 


an 4b-4b-4)-4d-4d-4b 4b Ab Ah Ab Ab Ad Ab Ab Ab th Ab hh ah Ah dh ah oh ah dh sh eh ab ah ah ah ah alah al ales 


o 
~~ 


.EXTRN KILL_BUFFERS, CONV_ACCLOCK 
-EXTRN LOCK"MODE, DEQ_LOCR 
-EXTRN DEALCOCATE 
000¢ 900 ENTRY DEACC_QFILE, Save R2,R3 
7E 01 CE 0000 MNEGL #1, -TSP) 
1 OD 00 0 PUSHL #1 
00006 CF 2 FB 00007 CALLS We KILL BUF FERS 
0 98 AA D 00 Of MOVL -104(BASE) 
2 54 Ad DO 0001 MOVL BLCROD FC 
08 AA 52 DO 00014 MOVL FCB, 8(BASE) 
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| 
; H : 5 ! GLOBAL ROUTINE RET_QENTRY (Q_RECORD, ABD) : L_NORM = | ‘ 
, Sri 1 7 1 lee 3 
: 7 1858 1! 3 
: t } 22 : FUNCTIONAL DESCRIPTION: ; 
: §75 1561 1! This routine copies the specified quota file record into the | * 
: 6 1206 1; result string area of the buffer seecrioter packet. This routine : 
3 ere 139? } must be called in kernel mode. ; 
3 ' : : 
s Sry 1565 1 ! CALLING SEQUENCE: 3 
3 2p0 1208 : RET_QENTRY (ARG1, ARG2) : 
: 38g ite at peal nsarece Of ti d ; 
3 : : address of quota e recor F 
; 584 1570 1! 3 
s Ses 1571 1°! IMPLICIT INPUTS: : 
; 586 1306 1! NONE 3 
3 Sar 1875 1! ; 
; 588 1574 1 ! OUTPUT PARAMETERS: 3 
; 589 1875 1! ARG2: address of buffer descriptor packet ; 
5; 1576 1! 3 
3 591 1577 1 ! IMPLICIT OUTPUTS: 3 
3 4 1578 1! NONE F 
; 1879 1! 3 
: 594 1580 1 ! ROUTINE VALUE: $ 
; 595 > ae ee 1 3 
; 596 1286 1! 3 
; 597 1585 1 ! SIDE EFFECTS: 3 
; 598 1584 1! NONE : 
; 599 1585 1! 3 
; 600 1586 1 !-- 3 
; 601 1587 1 3 
; one 1588 2 BEGIN 3 
; 60 1589 2 : 
3: 604 1590 § MAP 3 
: 605 1591 Q_ RECORD : REF BBLOCK, ' quota file record 3 
; 606 1336 $ ABD : REF BBLOCKVECTOR C,ABD$C_LENGTH); > 
5 it 1337 ' descriptor arg : 
; 609 1595 ! If the user provided a result length buffer, give him the Length : 
; 610 1596 ! of the record. : 
: 611 1597 ! 3 
3 616 1228 3 
; 61 159 IF .ABDCABDSC_RESL, ABD$W_COUNT] GEQ 2 3 
; 614 1600 THEN F 
: 615 1601 BEGIN 3 
; el¢ 1606 scaeOCABOSC RESL.. ABD$W_TEXT] + ABDCABDSC_RESL, ABDSW_TEXT] + 1)<0,16> = DQFSC_LENGTH; 3 
: 618 1604 : : 
3; 619 1605 ! If the user provided a result spring buffer, return as much of the 3 
; $30 1608 ; quota record as will fit (zero filling the buffer). : 
; 632 1608 3 
5 ¢ 1609 CHSCOPY (DQFSC_LENGTH g0-RECORD 0, : 
: 624 1610 ater 4 Bate ABD$W" COUNT ‘ 3 
: 625 1611 -ABDLABDSC_RES, ABDSW_TEXT] + ABDCABDSC_RES, ABDSW_TEXT] + 1); | 3 


eect 


! end of routine RET_QENTRY 
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51 bytes, Routine Base: $CODE$S + 034F 


; Routine Size: 


nn a 


1 
ayoTAYTIL iB-Sen-1984 00:51:04 yaad BL iss-32 v4 


: 63 1616 ] GLOBAL ROUTINE CONNOFILE (ABD, FIB) : L_NORM NOVALUE = | 
: £38 1618} i+ | : 
3 6 1619 1! : 
: 639 1620 1 | FUNCTIONAL DESCRIPTION: ; 
3; 6 16 ¢ 3 This routine causes the quota file for the volume set to be ; 
; ? : 1 i i connected and made active. | : 
; 640 1625 1 ! CALLING SEQUENCE: | : 
; 641 1626 1! CONN_QFILE (ARG1, ARG2) : 
3 org 1627 1! 3 
3; 64 1626 1 ! INPUT PARAMETERS: 3 
; 66446 1629 1! ARG1: address of buffer descriptor vector : 
: 645 1630 1! ARG2: address of user FIB ; 
; 646 1631 1! 3 
; 647 16 ¢ 1 ! IMPLICIT INPUTS: ; 
> 643 16 1% CLEANUP_FLAGS: cleanup action and status flags ‘ 
; 649 1634 1! CURRENT_RVN: RVN of currently selected volume : 
$ 03 ioe? ; CURRENT_VCB: VCB of currently selected volume ; 
3 62¢ 1637 1 =! OUTPUT PARAMETERS: : 
; 65 1638 1! NONE : 
; 654 1639 1! : 
; 655 1640 1 =! IMPLICIT OUTPUTS: : 
3 638 1641 1! PRIMARY_FCB: FCB created for quota file . 
; 65 Mo 1! : 
; 658 164 1 ! ROUTINE VALUE: ’ 
; 659 1644 1! NONE . 
; 660 1645 1! F 
; 661 1646 1 ! SIDE EFFECTS: : 
; 66¢ 1647 1! directory searched, quota file accessed (FCB created, etc.) | : 
: 66 1648 1! : 
; 6646 1649 1 !-=- : 
; 665 1650 1 ; 
: 666 1651 2 BEGIN ; 
: 667 1Oe6 ’ 
3; 668 165 MAP ‘ 
; 669 1654 ABD : REF BBLOCKVECTOR C,ABDSC_LENGTH), ° 
; 670 1655 ! buffer descriptor arg ; 
; 671 1656 FIB : REF BBLOCK; ' user FIB . 
3 O76 1657 : 
; 67 1658 LOCAL ° 
67% 1659 CB : REF BBLOCK, : FCB of quota file __ | : 
3 675 1660 HEADER : REF BBLOCK, ! file header of quota file ‘ 
3; 676 1661 BUFFER : REF BBLOCK; ! disk block buffer ‘ 
3; 677 1296 : 
: 678 1663 2 BIND_COMMON; | : 
: 679 1664 : 
: 680 1665 2 EXTERNAL ROUTINE : 
; 681 1906 REBLD_PRIM_FCB L_NORM NOVALUE, ! rebuild fcb from header : 
: 68 166 BUILD“EXT_FCBS _: L“NORM NOVALUE, | build extension fcbs | ; 
; 68 1668 ARBITRATE-ACCESS : C_JSB_2ARGS, : arbitrate file access | : 
s; ¢ 166 SERIAL_F ICE : L_RORM? : serialize on iven file 3 
: 5 1670 FIND : L_NORM, ' find file in directory | 3 
; 6 1671 SWITCH VOLUME : L_WORM, ! switch volume context i : 
; 1672 SEARCY_FCB L_-NORM ADDRESSING_MODE (GENERAL), ! search FCB List ‘ 
| 


. 
} 
m1 
TAUTIL 16-Sep-19 2:51:04 AX-11 Bliss-32 V4.0-742 Pa 1) 
yoe-001 1or8ee= 138s 93:80:84 HK SB SSaP uy 47255320 oe 8) 
: 673 READ_HEADER : LLNORM, ! read file header | 
3 ? ore CREATE_FCB : LINORM; ' create an FCB 
: 691 67 | 
3 24 or | Check caller privilege = must be ‘system’. 
: 694 re 
695 0 If NOT .CLEANUP_F neseett SYSPRV] 
: £38 ? 1 THEN ERR EXIT (SS$_NOPRIVJ; 
698 6 ‘ ' Find the quota file in the directory. The quota file must be located 
$66 : 4 RVN 1 if this is a volume set. 
701 686 
70 6 IF .CLEANUP_FLAGSCCLF_D RECTORY 
70 688 THEN FIND ({ABD, .FIB> 
7 689 WITCH VOLUME | (Fis F fe$w/FID_RVNI); 
705 690 IF .CURRE N GTRU 
4 o3) THEN ERR exTT (SS$_BADOQF ILE); 
708 re ! Make sure the quota file is not already active. 
Me teas 
1 38 IF .CURRENT_VCBCVCBSL QUOTAF CB) NEQ 0 
! U4 THEN ERR_EXTT (SS$_QFACTIVE); 
; 44 Find the FCB, if any, and read the header. 
1 01 j 
! 0¢ SERIAL_FILE (F168 CFIBSW_FIDI); 
1 Be FCB = PRIMARY_FCB = CEARCH_FCB (FIBCFIBSW_FID]); 


HEADER = READ_HEADER (FIBCFIB$W_FID)); 
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, 

7 08 ! Create an FCB if none exists. 

3 8 

g if IF .FCB EQL 0 

r 18 PRIMARY_FCB = FCB = CREATE_FCB (. HEADER) 

4 a IF .FCB CFCBSV_STALEJ 

, at REBLD_PRIM_FCB (.FCB, .HEADER); 

4 ; at BUILD_EXT_FCBS (.HEADER); 

i g Check the quota file for suitability (contiguous, file format, etc.) 

7 7 

7 724 IF NOT .HEADERCFH2$V outs) 

740 725 OR . pel CK HEADER rASSu W_LRECATTRI, FATSB_RTYPE) NEQ FATSC_FIXED 

741 7 $ OR. Bat OCcK HEADER FHe$W_RECATTRI, ae eel ied iee NEQ 

mg 7 OR z wie HEADERLFH su RECATTRJ, FATSW_RSIZE] NEQ DOFSC_LENGTH 

74 7 3 THE EXIT (SS$_BADOQFILE); 

744 7 
| 
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nN 1 | 
/ QUOTAUTIL 16-Sep-1984 00:51:04 AX-11 Bliss-32 V4.0-742 Page 22 
oto 19-08-1382 90:30:21 fF tix.SRCJQUOTAUTIL -B23s2 . BS | 
is 765 1730 ' Check access interlocks. | 
reg 1731 ! 
74 17 § 
74 17 If WOT ARBITRATE_ACCESS (0, .FCB) 
749 7 4g THEN ERREXIT (SS$_ACCONFLICT); 
751 17 ' Now hook up the quota file FCB. 
7 ¢ 17 $ ! 
7 1738 | 
754 1739 IF NOT KERNEL CALL (MAKE_QFCB, .FCB) 
736 ioe THEN ERR_EXIT™ (SS$_INSFMEM) ; ! allocation failure on quota cache 
7 1742 


REBLD_PRIM_FCB, BUILD_EXT_FCBS 
ARBITRATE _ACCESS 
‘ FIND, SEARCH_FCB 
-EXTRN READ. HEADER, ~CREATE_FCB 
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| END; ! end of routine CONN_QFILE 
000¢ 99000 .ENTRY CONN_QFILE, Save R2,R3 : 1616 
03 01 AA €8 00002 BLBS 1(BASE), 1$ + 1680 
24 BF 90006 CHMU = #36 + 1681 
04 0000 RET ; 
0B 6A 06 €1 00009 1S: BBC #6, (BASE), 2$ + 1687 
7E D4 00000 CLRL 3s = §P) : 1688 
7E 04 AC 7D OOOOF MOVO ABD, -(SP) : 
00006 CF 03 FB 00013 CALLS #3, FIND : 
50 08 AC b0 00018 2$: MOVL 1B, RO + 1689 
7E 08 ad 3C 0001C MOVZ2WL 8(RO), =(SP) ; 
00006 CF 01 FB 90020 CALLS #1, SWITCH_VOLUME : 
01 AO AA D1 00025 CMPL  =-94(BASE), #1 : 1690 
76 1A 00029 BGTRU 6$ : 
50 98 AA DO 00028 MOVL  -104(BASE), RO + 1696 
54 AO D3 0002F TSTL 4(RO) : 
05 13 00022 BEQL $ F 
O3cc «68F «OBE 000 CHMU #972 : 1697 
04 00 RET : 
7E 08 Ac 04 C1 00039 3s: ADDL3 #4, FIB, -(SP) : 1702 
00006 CF 01 FB 000 : CALLS #1, SERIAL_FILE ; 
08 AC 04 1 0004 ADDL3 #4. FIB, -TSP) + 1704 
000000006 00 01 FB 00048 CALLS #1, SEARCH FCB ; 
08 AA 28 D ied VL 8. 8 (BASES 3 
53 D 53 VL RO, FCB : 
7E 08 AC 04 C1 00056 ADDL3 #4, FIB, -(SP) : 1706 | 
00006 CF 1 FB 0005 CALLS #1, READ_HEADER : 
52 0 0 0006 MOVL RO. HEADER ; | 
D5 0006 TSTL 6 > 1711 
10 12 0006 BNEQ : | 
: DD 0 6 PUSHL HEADER ; 1713) 
00006 cf F 69 CALLS #1, CREATE_FCB : | 
3 9 D 8 $f MOVL : 
08 AA D MOVL CB, 8(BASE) ; 
0d 11 6 2 BRB $ ; 
09 23. Ad €9 00077 4$: BLBC S(FCB), 5$ : 1715 | 
52 DD 00078 PUSHL HEADER 3 171? | 
} 
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71986 92:3 


1:04 X-11 Bliss-32 V4.0-742 
0:41 tet 1X. SRCJQUOTAUTIL.B32;2 
a 
#2, REBLD_PRIM_FCB 
HEADER 


#1, BUILD_EXT_FCBS 
S2(HEADERY ~ 


O(HEADER), 
1 (HEADER) 
GeCHEADER), #32 
#956 
FCB, R1 
ARBITRATE_ACCESS 
#2048 


a 


FCB 
#1, MAKE_QFCB 
#292 


Page 23. 
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1724 | 
1725, 
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1727 
1728 | 
1733 | 
1734, 
1739, 


1740 
1742 | 
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agora VESegHBHe 98:8): 


= 


; 759 1743 1 GLOBAL ROUTINE MAKE_QFCB (FCB) : L_NORM = ; 
: 760 1744 1 ; 
; 761 1745 1 !44 : 
; 76 1068 1! ; 
; 76 1747 1 ! FUNCTIONAL DESCRIPTION: ; 
: 764 1748 1! ; 
; 765 1749 1! This routine hooks up the specified FCB to be the FCB for the ‘ 
; £08 1720 : volume (set) quota file. This routine must be called in kernel mode. ; 
; 768 1726 1 ! CALLING SEQUENCE: : 
: 769 1753 1/3 MAKE_QFCB (ARG1) ; 
; 770 Fee 3 3 
3: 771 1755 1 =! INPUT PARAMETERS: : 
: 77 1728 1! ARG1: address of FCB to hook up ° 
c. 37 1757 1! ; 
3 774 1758 1°! IMPLICIT INPUTS: : 
s 75 1759 1! CURRENT_VCB: VCB of volume ° 
; re 1760 1! 3 
3s «ii 1761 1 ! OUTPUT PARAMETERS: : 
: 778 1706 1! NONE : 
: 779 1763 1! : 
; 780 1764 1 ! IMPLICIT OUTPUTS: F 
; 781 1765 1! NONE | : 
3; 7 1766 1! : 
s 1767 1 ! ROUTINE VALUE: : 
; re 1768 1! 1 if successful : 
s 785 1769 1! 0 if allocation failure on cache block ‘ 
: 786 1770 1! : 
3; 787 1771 1°! SIDE EFFECTS: s 
; 788 1776 1! quota file FCB hooked into FCB List and quota pointer 3 
: 789 Wis 34 : 
: 790 1774 1 !<- | : 
; 791 1775 (1 : 
: 792 1776 BEGIN : 
; 793 1777 $ 
: 794 1778 MAP 3 
3; 795 1779 § FCB : REF BBLOCK; ' FCB to hook up : 
: 796 1780 s ; 
3; 797 1781 2 LOCA : 
; 798 1782 2 QUOTA_CACHE : REF BBLOCK, ! quota cache block allocated ; 
: 444 ite? ACB : REF BBLOCK; ! AST control block within quota block : 
; 801 1785 2 BIND_COMMON; : 
: Hy 1786 : 
: 80 178 EXTERNAL : : 
; 804 1788 SCHSGL_SWPPID : ADDRESSING_MODE (GENERAL); ; 
; 805 1789 ! PID of swapper process : 
; 806 1790 : 
: 807 1791 EXTERNAL ROUTINE : : 
: 808 176 ALLOCATE : L_NORM ADDRESSING_MODE (GENERAL), ! allocate system dynamic memory 3 
; 809 179 CACHE LOCK : L_NORM ! get sore re cache lock ; 
: 810 1794 MQPSUNLOCK_QUOTA : ADDRESSING_MODE (GENERAL); ; 
: 811 1795 ! release lock with value block : 
: Ble 1796 : 
: 3 179 ; ° 
; 14 1798 ' Allocate the cache block and Link it to the VCB. : 
s 6815 1799 : : 
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d 2 
QUOTAUTIL 16-Sep-1984 7:51:04 AX-11 Bliss-32 V4.0-742 Page 25 
yoe-001 13-808 =1 38 URS fF Tix. sRCJQUOTAUT IL 832.2 . 3 
; 8 1800 
; «81 1801 QUOTA_CACHE = ALLOCATE (MAXU (. CURRENT _VCBCVCB$W_QUOSIZE], 1) * VCASC_QUOLENGTH 
; 818 1 0¢ + SBYTEOFFSET TVCASL_QUOCIST), CACHE_TYPE); 
; 819 180 IF .QUOTA CACHE EQL 0 
; 820 1804 THEN RETURN 0; 
; 821 1805 QUOTA_CACHE vCa$w_QuOSIZE] = MAXU (.CURRENT_VCBCVCB$W_QUOSIZEJ, 1); 
; : ¢ 1908 CURRENT _VCBCVCBSL_QUOCACHE] = .QUOTA_CACHE; 
; 824 1808 : Initialize the AST control blocks in the quota cache header. One is 
; 825 1809 : used to post blocking AST's to the swapper to release cache entries. 
: 826 1810 ! The other is used to trip the cache flush process to flush the entire 
; 827 1811 ! cache. 
; 828 sig : 
: 829 181 
; 830 1814 ACB _= QUOTA _CACHECVCA$B_QUOACB); 
; 831 1815 ACBCACBSB_RMOD) = PSLSC"KERNEL + ACBSM_NODELETE; 
$ o36 1816 ACBCACBSL_PIDJ = .SCHSGC_SwPPID; 
; 83 1817 2 ACBCACBSL-AST] = XQPSUNLOCK_ QUOTA; 
; 834 1818 ACB = QUOTA CACHELVCA$SB_QUOFLUSHACB); 
; 839 1819 ACBCACB$B_RMOD) = PSLS$C“KERNEL + ACBSM_NODELETE; 
; 837 1821 ! Bump up the access counts in the FCB to show an accessed file. 
; 838 18s¢ ! Lock it against truncates. 
; 839 18 : 
; 840 1824 
: Ba) 1825 FCBCFCBSW_REFCNT] = .FCBCFCBSW_REFCNT]) + 1; 
; 4g 1826 2 FCBCFCBSWIACNT] = .FCBCFCBSW_ACNTJ + 1; 
3 oti tH FCBLFCBSW_TCNTJ = .FCBCFCBSW_TCNT) + 1; 
: 845 136) ! If the quota file is already write accessed, take out the cache lock 
3 ec$ ae on the write access to prevent use of the cache. 
; 848 1836 
3; «849 183 IF .FCBCFCBSW_WCNT] NEQ 0 
; 850 1834 AND .BBLOCK CCURRENT UCBCUCB$L_DEVCHAR2), DEV$V_CLU] 
; 851 1835 2 AND .FCBCFCBSL_CACHECKID 0 
: B26 1836 § THEN CACHE_LOCR (.FCBCFCBSL_LOCKBASIS), FCBCFCBSL_CACHELKID], 2); 
: 854 1833 ! Finally enter the quota file pointer in the VCB. 
3 Boe 1839 ! 
; 856 1840 
; tH Ht oe CURRENT_VCBCVCBSL_QUOTAFCB) = .FCB; 
; 859 1803 CLEANUP_FLAGSCCLF_DEACCOQFILE) = 1; 
: 860 1844 
: 36) 1845 RETURN 1; 
3 os 1846 . 
; 86 1847 1 END; ! end of routine MAKE_QFCB 


.EXTRN SCHSGL_SWPPID, ALLOCATE 
-EXTRN CACHE_COCK, XQPSUNLOCK_QUOTA 


MAKE _QFCB, Save nothing 
-104(BASE), RO 
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SCODES + 0447 


1 
5 6 
5 C 
ge O47 1$: 
et 
09 1E 
12 00021 
31 00023 
0 0026 2$: 
OO2A 
12 000 F 
DO 000 
BO 00033 3$: 
DO 00036 
DO O003A 
9E 4 
90 0004 
DO 00046 
9E Boe 
9E 00056 
90 QO05A 
DO 0005 
B6 0006 
DO 0006 
B6 00069 
DO 0006C 
B6é 00070 
DO 00073 
83 00077 
1 Bera 
dO 0007C 
E9 00080 
DS 00084 
12 00087 
DD 00089 
9F 00088 
DD OOO8E 
FB 00091 
DO 00096 4$: 
DO O009A 
88 0009F 
DO 000A3 
04 OOOA 
D4 OOOA7 5$: 
04 000A 
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PeCRO). RO 
1 

#1, RO 

#28, RO 

68 (RO) 

#2, ALLOCAT 


E 
RO. QUOTA_CACHE 


#1, RO 
RO. (QUOTA_CACHE) 
-164 (BASE) 

QUOTA CACHE, 92(RO) 
12(R13, ACB 


#32, 11(ACB) 
SCH$GL_SWPPID, 12(ACB) 
AOC SyACOCK QUOTA. 16(ACB) 


#32, 11(ACB) 


: 
CACHE_LOCK 
-164(BASET, RO 
FCB, 84(ROS 
#2, 3(BASE) 
#1. RO 


RO 
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ft 2 
QUOTAUTIL 16-Sep-1984 9 51:04 VAX-11 Bliss-32 V4.0-742 Page 37 
v04-001 14-Sep-1984 12:30:41 CF11X.SRCJQU OTAUTIL. B32;2 (7) 
H PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 1265 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


= Bee eee) ee eS Symbols -co-e--- Pages Processing 

; File Total Loaded Percent Mapped Time 
;  _$255$DUA28:CSYSLIBILIB.L32;1 18619 103 0 1000 00:01.9 | 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:QUOTAUTIL/OBJ=OBJ$:QUOTAUTIL MSRC$:QUOTAUTIL/UPDATE=(ENH$:QUOTAUTIL) 


; Size: 1265 code, + 0 data bytes 
Ti 01 


: Elapsed Time: bt ioB 
3; Lines/CPU Min: 


1746 
; ponenee/ Ne ras 57359 
: peneey Se 321 pages 
; Compi okies Complete 


0171 AH-BT13A-SE | i ENT CORPORATION 
VAX/VMS V4.0 _ ‘AND PROPRIETARY 


AH-BT1i3A-SE 


| DIGITAL EQUIPMENT CORPORAT 
VAX/VMS V4.0 TA 


ION 
CONFIDENTIAL AND PROPRIETARY 


‘UE 


